home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / PlainTalk Developer / Text-to-Speech / Installer Source / ActionAtoms / GestaltFxns.c < prev    next >
Encoding:
Text File  |  1994-12-21  |  963 b   |  40 lines  |  [TEXT/MPS ]
  1. //    This file tests that the specified Gestalt calls are equal to or greater
  2. //    then the passed in long paramater
  3.  
  4. #if 0
  5. C -b GestaltFxns.c -r
  6. Link -ra =resPurgeable -rt infn=1001 -rn -m CHKGR33MHZ -t rsrc -c RSED ∂
  7.         GestaltFxns.c.o ∂
  8.         "{Libraries}"Interface.o ∂
  9.         -o GestaltFxns.rsrc 
  10. Link -ra =resPurgeable -rt infn=1002 -rn -m CHKNOTPROCESSOR -t rsrc -c RSED ∂
  11.         GestaltFxns.c.o ∂
  12.         "{Libraries}"Interface.o ∂
  13.         -o GestaltFxns.rsrc 
  14. #endif
  15.  
  16. #include    <LowMem.h>
  17. #include    "GestaltEqu.h"
  18.  
  19. pascal Boolean chkGr33MHz(short targetVRefNum, long blessedID, long someMask)
  20. {
  21. #pragma unused (blessedID,targetVRefNum, someMask)
  22. #define    kCISpeed    4165
  23.  
  24.     return ( LMGetTimeDBRA() > kCISpeed );
  25. }
  26.  
  27. pascal Boolean chkNotProcessor(short targetVRefNum, long blessedID, long processorType)
  28. {
  29. #pragma unused (blessedID,targetVRefNum)
  30.  
  31.     OSErr    err;
  32.     long    thisProcessor;
  33.     
  34.     err = Gestalt( gestaltProcessorType, &thisProcessor );
  35.     
  36.     return ( !(thisProcessor && processorType) );
  37. }
  38.  
  39.  
  40.